home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / desert boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  488b  |  16 lines
  1. 0 print"[147]"chr$(8)
  2. 10 ifa=.thena=1:load"unpacker",8,1
  3. 20 ifa=1thena=2:load"desert.shp",8,1
  4. 50 poke53280,.:poke53281,.
  5. 60 bm=40960:co=35840
  6. 70 poke249,bm/256:rem   bitmap memory
  7. 80 poke250,co/256:rem   color memory
  8. 90 poke251,0     :rem   low byte of shp
  9. 100 poke252,64   :rem  high byte of shp
  10. 110 poke253,.:poke254,.
  11. 120 sys51456 :rem    unpack that shape!
  12. 130 sys51459 :rem    show that shape!
  13. 140 print"[149]load"chr$(34)"desert trader"chr$(34)",8:"
  14. 150 print"printchr$(147):sys51459:run:"
  15. 160 poke631,13:poke632,13:poke198,2:end
  16.